unit UDLLComm;

interface

uses Windows, Forms;

type
  ProEvent = procedure() of object;
  procedure AAAEvent(EventID: Integer; sEvent: ProEvent);

implementation

uses UDLLMain;

procedure AAAEvent(EventID: Integer; sEvent: ProEvent);
var
  mDLLMain: TForm1;
begin
  mDLLMain := TForm1.Create(nil);
  try
    mDLLMain.FBBB := sEvent;
    mDLLMain.ShowModal;
  finally
    mDLLMain.Free;
  end;

end;

end.
